perm filename DOTS.F4[NEW,LCS] blob sn#333224 filedate 1978-02-06 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE DOTS(VAL,RH,K,DOT)
C00003 ENDMK
CāŠ—;
	SUBROUTINE DOTS(VAL,RH,K,DOT)
	COMMON/SCM/V(1)
C FINDS DOTS (1000S), GET RHYTH. AND RHYTHMIC VALUE (QTR=1)
	RH=V(K)
	VAL=4/RH
	J=RH/1000.
	DOT=J*10
	IF(J.EQ.0)RETURN 
	RH=RH-J*1000
	VAL=4./RH
	Z=VAL
1	Z=Z/2
	VAL=VAL+Z
	J=J-1
	IF(J.GT.0)GO TO 1
	END